home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1993 November
/
JCSM Shareware Collection - 1993-11.iso
/
cl440
/
sezfootj.lzh
/
FBALL.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-08-19
|
4KB
|
179 lines
@echo off
CLS
echo
BALL /T5
:logo
MENU2 /K PRSBQ /F
if errorlevel 255 goto quit
if errorlevel 5 goto quit
if errorlevel 4 goto stats
if errorlevel 3 goto season
if errorlevel 2 goto fball
if errorlevel 1 goto play
:season
SEASON
pause
goto logo
:fball
EGAFB
goto logo
:play
MATCHD
QU QP /24H
(
P
)lay by Play or (
Q
)uick Game?
if errorlevel 2 goto fball
CLS
QUICK
PAUSE
copy gam15.sts gam.sts
PSTAT
goto logo
:stats
echo
echo 41H
echo 27HBackup Season Stats to-B [
B
]
echo 27HSave Week's Games to -B [
S
]
echo 27HUse/See Game stats [
C
]
echo 27HStart New Season [
Z
]
echo 27HReturn to MAIN MENU [
R
]
QU BSCZR /27H
Select Option
if errorlevel 5 goto LOGO
if errorlevel 4 goto zero
if errorlevel 3 goto change
if errorlevel 2 goto weeks
:league
cls
echo 20H
Select (
N
)FL or (
R
)BL Leauge
QU NR /20H
Select Option
if errorlevel 2 goto RBL
:NFL
copy NDV?.REC B:\NFL
copy NV?.rec B:\NFL
copy nfweek.dat B:\NFL
goto logo
:RBL
copy DIV?.REC B:\RBL
copy DV?.REC B:\RBL
copy week.dat B:\RBL
goto logo
:weeks
cls
echo
echo 10H
TYPE IN "set INPUT=WEEK##" (W/O"),then F6 AND Enter when finished
copy inputset.txt+con number.bat>nul
call number
echo 10H
Backup Game Stats for (
N
)FL or (
R
)BL League?
QU NR /
30HSelect Option
if errorlevel 2 goto rbstat
cls
del gam17.sts
del gam.sts
Xcopy *.sts B:\NFL\%input%
set input=
del number.bat
goto logo
:zero
cls
QU RN /20H
Select (
R
)BL or (
N
)FL to zero out
if errorlevel 2 goto NFL2
FOR %%A IN (DIV1.REC,DIV2.REC,DIV3.REC,DIV4.REC) DO COPY RBL %%A
FOR %%B IN (DV1.REC,DV2.REC,DV3.REC,DV4.REC) DO COPY RBR %%B
COPY WEEK0.DAT WEEK.DAT
goto logo
:rbstat
cls
del gam17.sts
del gam.sts
Xcopy *.STS B:\RBL\%input%
set input=
del number.bat
goto logo
:NFL2
FOR %%C IN (NDV1.REC,NDV2.REC,NDV3.REC,NDV4.REC,NDV5.REC,NDV6.REC) DO COPY NFL %%C
FOR %%D IN (NV1.REC,NV2.REC,NV3.REC,NV4.REC,NV5.REC,NV6.REC) DO COPY NR %%D
copy WEEK0.DAT NFWEEK.DAT
goto logo
:CHANGE
echo
echo 41H
echo 27HReplace Game Stats [
R
]
echo 27HSee Stats of a Game [
S
]
echo 27HGame Stats of Past Weeks [
P
]
echo 27HReturn to LAST MENU [
L
]
echo 27HReturn to MAIN MENU [
M
]
QU RSPLM /27H
Select Option
if errorlevel 5 goto LOGO
if errorlevel 4 goto STATS
if errorlevel 3 goto PAST
if errorlevel 2 goto SEE
:REPLACE
cls
echo
echo 20H
This program requires a game number selection
echo 20Htype in
SET game=GAM##
, then
F6 & Enter
echo 20H
copy gameset.txt+con number.bat>nul
call number
copy %game%.sts gam.sts
pstat
echo
echo 20H
You have selected
%game%.
Is this OK?
QU YN /20H Select (
Y
)es or (
N
)o
if errorlevel 2 goto logo
copy gam17.sts gam.sts
pstat
echo
cls
echo 20H
The Game shown will now be
%game%
. Is this OK?
QU YN /30H Select (
Y
)es or (
N
)o
if errorlevel 2 goto logo
copy gam17.sts %game%.sts
set game=
del number.bat
goto logo
:see
cls
echo 20H
This program requires a game number selection
echo 20HType in
SET game=GAM##
,then
F6 & Enter
echo 20H
copy gameset.txt+con number.bat>nul
call number
copy %game%.sts gam.sts
pstat
set game=
del number.bat
goto logo
:past
cls
echo 20H
This program requires a game and week number selection
echo 20HType in
SET game=GAM##
, then
F6 & Enter
echo 20H
copy gameset.txt+con number.bat>nul
echo 20H
Type in
SET wek=week##
, then
F6 & Enter
echo 20H
copy wekset.txt+con week.bat>nul
call number
call week
echo 20H
Select League: (
N
)FL or (
R
)BL
QU NR /20HChoose N or R
if errorlevel 2 goto RBL2
:NFL2
b:
copy nfl\%wek%\%game%.sts c:\fb\gam.sts
goto jump
:RBL2
b:
copy rbl\%wek%\%game%.sts c:\fb\gam.sts
:jump
c:
cd\fb
pstat
set game=
set wek=
del number.bat
del week.bat
goto logo
:QUIT
echo
cls
cd\